home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / P / ProTERM Demo 1.01.sit / ProTERM Demo 1.01 / Macros / Macro.CIS < prev    next >
Encoding:
Text File  |  1994-12-29  |  675 b   |  36 lines  |  [TEXT/PTM1]
  1. /*
  2. CompuServe AutoScan macro for ProTERM
  3.  
  4. To use this macro, add the command: EXTERN(":Macros:Macro.Delphi",main());
  5. to the end of your Delphi logon macro, prior to the END; command.
  6. */
  7.  
  8. IF (WT("choice","mail waiting") == 2) {
  9.  WT("choice");
  10.  PR("go mail^m");
  11.  WT("choice!");
  12.  PR("read all^m");
  13.  WHILE (1) {
  14.   SWITCH(WT("enter choice!","<cr> to continue","% message is binary")) {
  15.    1, { BREAK; }
  16.    2, { PR("delete^m"); }
  17.    3, { WT("<cr> to continue"); PR("save^m"); }
  18.   }
  19.  }
  20. }
  21.  
  22. PR("go macnew^m");
  23. WT(":>");
  24. PR("read new^m");
  25. WT(":>");
  26. PR("go macapp^m");
  27. WT(":>");
  28. PR("read new^m");
  29. WT(":>");
  30. //
  31. // ...add your own forum access commands here...
  32. //
  33. PR("bye^m");
  34. RETURN();
  35.  
  36.